home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / FDSG211.ZIP / FDSRC211.ZIP / FDSTATM2.BAS < prev   
Encoding:
BASIC Source File  |  1996-03-25  |  19.3 KB  |  705 lines
  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. 'FrontDoor Statistics Generator              Copyright (C) 1996 Scott Hall   '
  3. '-------------------------------------------------------------------------   '
  4. 'This program is Copyright (C) 1996 Scott Hall. I grant permission for any   '
  5. 'person or company to use any of this program of portions thereof for any    '
  6. 'purpose except where the subsequent product:                                '
  7. '                                                                            '
  8. ' a) is not available to the public free of charge.                          '
  9. ' b) is called "FrontDoor Statistics Generator" or "FDSTAT"                  '
  10. '                                                                            '
  11. 'If you use this program, or portions thereof, you accept the above condions.'                                                         '
  12. '                                                                            '
  13. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  14.  
  15. DECLARE SUB ASCIItoASL (X%)
  16. DECLARE FUNCTION AnsiColor$ (Attr AS INTEGER)
  17. DECLARE SUB SaveAscScrn (FileNum AS INTEGER, Title AS INTEGER)
  18. DECLARE SUB SaveAslScrn (FileNum AS INTEGER)
  19. DECLARE SUB SaveAnsiScrn (FileNum AS INTEGER)
  20.  
  21. DEFINT A-Z
  22. FUNCTION AnsiColor$ (Attr AS INTEGER)
  23.  
  24.    ForeColor = Attr AND &H7
  25.    BackColor = (Attr AND &H70) / 16
  26.  
  27.    IF Attr AND &H8 THEN
  28.      Bold = 1
  29.    ELSE
  30.      Normal = 1
  31.    END IF
  32.    IF Attr AND &H80 THEN Blink = 1
  33.  
  34.    Fore$ = MID$("3034323631353337", (ForeColor * 2) + 1, 2)
  35.    Back$ = MID$("4044424641454347", (BackColor * 2) + 1, 2)
  36.  
  37.    TmpStr$ = CHR$(27) + "["
  38.    IF Normal = 1 THEN TmpStr$ = TmpStr$ + "0;"
  39.  
  40.    IF Bold THEN TmpStr$ = TmpStr$ + "1;"
  41.    IF Blink THEN TmpStr$ = TmpStr$ + "5;"
  42.     
  43.    AnsiColor$ = TmpStr$ + Fore$ + ";" + Back$ + "m"
  44.  
  45. END FUNCTION
  46.  
  47. DEFSNG A-Z
  48. SUB ASCIItoASL (X%)
  49.  
  50.         IF X% = ASC("░") THEN X% = ASC(" ")
  51.         IF X% = ASC("▒") THEN X% = ASC(" ")
  52.         IF X% = ASC("▓") THEN X% = ASC(" ")
  53.         IF X% = ASC("│") THEN X% = ASC("|")
  54.         IF X% = ASC("┤") THEN X% = ASC("+")
  55.         IF X% = ASC("╡") THEN X% = ASC("+")
  56.         IF X% = ASC("╢") THEN X% = ASC("+")
  57.         IF X% = ASC("╖") THEN X% = ASC("+")
  58.         IF X% = ASC("╕") THEN X% = ASC("+")
  59.         IF X% = ASC("╣") THEN X% = ASC("+")
  60.         IF X% = ASC("║") THEN X% = ASC("|")
  61.         IF X% = ASC("╗") THEN X% = ASC("+")
  62.         IF X% = ASC("╝") THEN X% = ASC("+")
  63.         IF X% = ASC("╜") THEN X% = ASC("+")
  64.         IF X% = ASC("╛") THEN X% = ASC("+")
  65.         IF X% = ASC("┐") THEN X% = ASC("+")
  66.         IF X% = ASC("┐") THEN X% = ASC("+")
  67.         IF X% = ASC("└") THEN X% = ASC("+")
  68.         IF X% = ASC("┴") THEN X% = ASC("+")
  69.         IF X% = ASC("┬") THEN X% = ASC("+")
  70.         IF X% = ASC("├") THEN X% = ASC("+")
  71.         IF X% = ASC("─") THEN X% = ASC("-")
  72.         IF X% = ASC("┼") THEN X% = ASC("+")
  73.         IF X% = ASC("╞") THEN X% = ASC("+")
  74.         IF X% = ASC("╟") THEN X% = ASC("+")
  75.         IF X% = ASC("╚") THEN X% = ASC("+")
  76.         IF X% = ASC("╔") THEN X% = ASC("+")
  77.         IF X% = ASC("╩") THEN X% = ASC("+")
  78.         IF X% = ASC("╦") THEN X% = ASC("+")
  79.         IF X% = ASC("╠") THEN X% = ASC("+")
  80.         IF X% = ASC("═") THEN X% = ASC("-")
  81.         IF X% = ASC("╬") THEN X% = ASC("+")
  82.         IF X% = ASC("╧") THEN X% = ASC("+")
  83.         IF X% = ASC("╨") THEN X% = ASC("+")
  84.         IF X% = ASC("╤") THEN X% = ASC("+")
  85.         IF X% = ASC("╥") THEN X% = ASC("+")
  86.         IF X% = ASC("╙") THEN X% = ASC("+")
  87.         IF X% = ASC("╘") THEN X% = ASC("+")
  88.         IF X% = ASC("╒") THEN X% = ASC("+")
  89.         IF X% = ASC("╓") THEN X% = ASC("+")
  90.         IF X% = ASC("╫") THEN X% = ASC("+")
  91.         IF X% = ASC("╪") THEN X% = ASC("+")
  92.         IF X% = ASC("┘") THEN X% = ASC("+")
  93.         IF X% = ASC("┌") THEN X% = ASC("+")
  94.         IF X% = ASC("█") THEN X% = ASC(" ")
  95.         IF X% = ASC("■") THEN X% = ASC("*")
  96.         IF X% = ASC("α") THEN X% = ASC("a")
  97.         IF X% = ASC("ß") THEN X% = ASC("b")
  98.  
  99. END SUB
  100.  
  101. SUB BBSScreens (FDStatOut AS INTEGER, BBS AS STRING, Node AS STRING)
  102. DEFINT A-Z
  103.  
  104. SaveAscScrn FDStatOut, 0
  105.  
  106. IF BBS <> "" THEN
  107.  
  108.    ASCF = FREEFILE
  109.    OPEN BBS + "FDSTAT" + Node + ".ASC" FOR OUTPUT AS #ASCF
  110.    SaveAscScrn ASCF, -1
  111.    CLOSE #ASCF
  112.  
  113.    ANSF = FREEFILE
  114.    SHELL "if exist " + BBS + "FDSTAT" + Node + ".ANS del " + BBS + "FDSTAT" + Node + ".ANS >NUL"
  115.    OPEN BBS + "FDSTAT" + Node + ".ANS" FOR BINARY ACCESS WRITE AS #ANSF
  116.    SaveAnsiScrn ANSF
  117.    CLOSE #ANSF
  118.  
  119.    ASLF = FREEFILE
  120.    OPEN BBS + "FDSTAT" + Node + ".ASL" FOR OUTPUT AS #ASLF
  121.    SaveAslScrn ASLF
  122.    CLOSE #ANSF
  123.  
  124. END IF
  125.  
  126. END SUB
  127.  
  128. DEFSNG A-Z
  129. SUB DrawScreen (VERSION$)
  130. '-----------------------
  131. ' Draw the main screen
  132. '-----------------------
  133. COLOR 5, 7: PRINT " ■";
  134. COLOR 0, 7: PRINT " FrontDoor Statistics Generator        Scott Hall 3:712/393 shall@world.net ";
  135. COLOR 5, 7: PRINT "■ "
  136. COLOR 0, 7
  137. LOCATE 1, 35
  138. PRINT VERSION$
  139.  
  140. COLOR 7, 0: PRINT "▒";
  141. COLOR 11, 0: PRINT "╒════════════════════════════";
  142. COLOR 14, 1: PRINT " Processing Window ";
  143. COLOR 11, 0: PRINT "═════════════════════════════╕";
  144. COLOR 7, 0: PRINT "▒";
  145. PRINT "▒";
  146. COLOR 11, 0: PRINT "│                                                                            │";
  147. COLOR 7, 0: PRINT "▒";
  148. PRINT "▒";
  149. COLOR 11, 0: PRINT "│                                                                            │";
  150. COLOR 7, 0: PRINT "▒";
  151. PRINT "▒";
  152. COLOR 11, 0: PRINT "│                                                                            │";
  153. COLOR 7, 0: PRINT "▒";
  154. PRINT "▒";
  155. COLOR 11, 0: PRINT "╞═════════════════════════";
  156. COLOR 14, 1: PRINT " Incoming/Outgoing Polls ";
  157. COLOR 11, 0: PRINT "══════════════════════════╡";
  158. COLOR 7, 0: PRINT "▒";
  159. PRINT "▒";
  160. COLOR 11, 0: PRINT "│";
  161. COLOR 7, 0: PRINT " ";
  162. COLOR 13, 0: PRINT "Pollers";
  163. COLOR 7, 0: PRINT "/";
  164. COLOR 13, 0: PRINT "ings  TX";
  165. COLOR 7, 0: PRINT "/";
  166. COLOR 13, 0: PRINT "RX bytes TX";
  167. COLOR 7, 0: PRINT "/";
  168. COLOR 13, 0: PRINT "RX Rate";
  169. COLOR 11, 0: PRINT "│";
  170. COLOR 7, 0: PRINT " ";
  171. COLOR 13, 0: PRINT " Pollers";
  172. COLOR 7, 0: PRINT "/";
  173. COLOR 13, 0: PRINT "ings  TX";
  174. COLOR 7, 0: PRINT "/";
  175. COLOR 13, 0: PRINT "RX bytes TX";
  176. COLOR 7, 0: PRINT "/";
  177. COLOR 13, 0: PRINT "RX Rate";
  178. COLOR 11, 0: PRINT "│";
  179. COLOR 7, 0: PRINT "▒";
  180. PRINT "▒";
  181. COLOR 11, 0: PRINT "│";
  182. COLOR 7, 0: PRINT "<2.4:";
  183. COLOR 3, 0: PRINT "  0";
  184. COLOR 7, 0: PRINT "/";
  185. COLOR 3, 0: PRINT "  0 ";
  186. COLOR 3, 0: PRINT "   0";
  187. COLOR 7, 0: PRINT "k/";
  188. COLOR 3, 0: PRINT "   0";
  189. COLOR 7, 0: PRINT "k    ";
  190. COLOR 3, 0: PRINT "0";
  191. COLOR 7, 0: PRINT "/   ";
  192. COLOR 3, 0: PRINT "0";
  193. COLOR 7, 0: PRINT "CPS";
  194. COLOR 11, 0: PRINT "│";
  195. COLOR 7, 0: PRINT " 19.2:";
  196. COLOR 3, 0: PRINT "  0";
  197. COLOR 7, 0: PRINT "/";
  198. COLOR 3, 0: PRINT "  0";
  199. COLOR 7, 0: PRINT "    ";
  200. COLOR 3, 0: PRINT "0";
  201. COLOR 7, 0: PRINT "k/   ";
  202. COLOR 3, 0: PRINT "0";
  203. COLOR 7, 0: PRINT "k";
  204. COLOR 7, 0: PRINT "    ";
  205. COLOR 3, 0: PRINT "0";
  206. COLOR 7, 0: PRINT "/   ";
  207. COLOR 3, 0: PRINT "0";
  208. COLOR 7, 0: PRINT "CPS";
  209. COLOR 11, 0: PRINT "│";
  210. COLOR 7, 0: PRINT "▒";
  211. PRINT "▒";
  212. COLOR 11, 0: PRINT "│";
  213. COLOR 7, 0: PRINT " 4.8:";
  214. COLOR 3, 0: PRINT "  0";
  215. COLOR 7, 0: PRINT "/";
  216. COLOR 3, 0: PRINT "  0";
  217. COLOR 3, 0: PRINT "    0";
  218. COLOR 7, 0: PRINT "k/";
  219. COLOR 3, 0: PRINT "   0";
  220. COLOR 7, 0: PRINT "k  ";
  221. COLOR 14, 0: PRINT "  ";
  222. COLOR 3, 0: PRINT "0";
  223. COLOR 7, 0: PRINT "/   ";
  224. COLOR 3, 0: PRINT "0";
  225. COLOR 7, 0: PRINT "CPS";
  226. COLOR 11, 0: PRINT "│";
  227. COLOR 7, 0: PRINT " 21.6:";
  228. COLOR 3, 0: PRINT "  0";
  229. COLOR 7, 0: PRINT "/";
  230. COLOR 3, 0: PRINT "  0";
  231. COLOR 7, 0: PRINT "    ";
  232. COLOR 3, 0: PRINT "0";
  233. COLOR 7, 0: PRINT "k/   ";
  234. COLOR 3, 0: PRINT "0";
  235. COLOR 7, 0: PRINT "k";
  236. COLOR 15, 0: PRINT " ";
  237. COLOR 7, 0: PRINT "   ";
  238. COLOR 3, 0: PRINT "0";
  239. COLOR 7, 0: PRINT "/   ";
  240. COLOR 3, 0: PRINT "0";
  241. COLOR 7, 0: PRINT "CPS";
  242. COLOR 11, 0: PRINT "│";
  243. COLOR 7, 0: PRINT "▒";
  244. PRINT "▒";
  245. COLOR 11, 0: PRINT "│";
  246. COLOR 7, 0: PRINT " 7.2:";
  247. COLOR 3, 0: PRINT "  0";
  248. COLOR 7, 0: PRINT "/";
  249. COLOR 3, 0: PRINT "  0";
  250. COLOR 3, 0: PRINT "    0";
  251. COLOR 7, 0: PRINT "k/";
  252. COLOR 3, 0: PRINT "   0";
  253. COLOR 7, 0: PRINT "k    ";
  254. COLOR 3, 0: PRINT "0";
  255. COLOR 7, 0: PRINT "/   ";
  256. COLOR 3, 0: PRINT "0";
  257. COLOR 7, 0: PRINT "CPS";
  258. COLOR 11, 0: PRINT "│";
  259. COLOR 7, 0: PRINT " 24.0:";
  260. COLOR 3, 0: PRINT "  0";
  261. COLOR 7, 0: PRINT "/";
  262. COLOR 3, 0: PRINT "  0";
  263. COLOR 7, 0: PRINT "    ";
  264. COLOR 3, 0: PRINT "0";
  265. COLOR 7, 0: PRINT "k/   ";
  266. COLOR 3, 0: PRINT "0";
  267. COLOR 7, 0: PRINT "k";
  268. COLOR 15, 0: PRINT " ";
  269. COLOR 7, 0: PRINT "   ";
  270. COLOR 3, 0: PRINT "0";
  271. COLOR 7, 0: PRINT "/   ";
  272. COLOR 3, 0: PRINT "0";
  273. COLOR 7, 0: PRINT "CPS";
  274. COLOR 11, 0: PRINT "│";
  275. COLOR 7, 0: PRINT "▒";
  276. PRINT "▒";
  277. COLOR 11, 0: PRINT "│";
  278. COLOR 7, 0: PRINT " 9.6:";
  279. COLOR 3, 0: PRINT "  0";
  280. COLOR 7, 0: PRINT "/";
  281. COLOR 3, 0: PRINT "  0";
  282. COLOR 3, 0: PRINT "    0";
  283. COLOR 7, 0: PRINT "k/";
  284. COLOR 3, 0: PRINT "   0";
  285. COLOR 7, 0: PRINT "k    ";
  286. COLOR 3, 0: PRINT "0";
  287. COLOR 7, 0: PRINT "/   ";
  288. COLOR 3, 0: PRINT "0";
  289. COLOR 7, 0: PRINT "CPS";
  290. COLOR 11, 0: PRINT "│";
  291. COLOR 7, 0: PRINT " 26.4:";
  292. COLOR 3, 0: PRINT "  0";
  293. COLOR 7, 0: PRINT "/";
  294. COLOR 3, 0: PRINT "  0";
  295. COLOR 7, 0: PRINT "    ";
  296. COLOR 3, 0: PRINT "0";
  297. COLOR 7, 0: PRINT "k/";
  298. COLOR 3, 0: PRINT "   0";
  299. COLOR 7, 0: PRINT "k";
  300. COLOR 15, 0: PRINT " ";
  301. COLOR 7, 0: PRINT "   ";
  302. COLOR 3, 0: PRINT "0";
  303. COLOR 7, 0: PRINT "/   ";
  304. COLOR 3, 0: PRINT "0";
  305. COLOR 7, 0: PRINT "CPS";
  306. COLOR 11, 0: PRINT "│";
  307. COLOR 7, 0: PRINT "▒";
  308. PRINT "▒";
  309. COLOR 11, 0: PRINT "│";
  310. COLOR 7, 0: PRINT "12.0:";
  311. COLOR 3, 0: PRINT "  0";
  312. COLOR 7, 0: PRINT "/";
  313. COLOR 3, 0: PRINT "  0";
  314. COLOR 7, 0: PRINT " ";
  315. COLOR 3, 0: PRINT "   0";
  316. COLOR 7, 0: PRINT "k/";
  317. COLOR 3, 0: PRINT "   0";
  318. COLOR 7, 0: PRINT "k    ";
  319. COLOR 3, 0: PRINT "0";
  320. COLOR 7, 0: PRINT "/   ";
  321. COLOR 3, 0: PRINT "0";
  322. COLOR 7, 0: PRINT "CPS";
  323. COLOR 11, 0: PRINT "│";
  324. COLOR 7, 0: PRINT " 28.8:";
  325. COLOR 3, 0: PRINT "  0";
  326. COLOR 7, 0: PRINT "/";
  327. COLOR 3, 0: PRINT "  0";
  328. COLOR 7, 0: PRINT "    ";
  329. COLOR 3, 0: PRINT "0";
  330. COLOR 7, 0: PRINT "k/   ";
  331. COLOR 3, 0: PRINT "0";
  332. COLOR 7, 0: PRINT "k";
  333. COLOR 15, 0: PRINT " ";
  334. COLOR 7, 0: PRINT "   ";
  335. COLOR 3, 0: PRINT "0";
  336. COLOR 7, 0: PRINT "/   ";
  337. COLOR 3, 0: PRINT "0";
  338. COLOR 7, 0: PRINT "CPS";
  339. COLOR 11, 0: PRINT "│";
  340. COLOR 7, 0: PRINT "▒";
  341. PRINT "▒";
  342. COLOR 11, 0: PRINT "│";
  343. COLOR 7, 0: PRINT "14.4:";
  344. COLOR 3, 0: PRINT "  0";
  345. COLOR 7, 0: PRINT "/";
  346. COLOR 3, 0: PRINT "  0";
  347. COLOR 7, 0: PRINT " ";
  348. COLOR 3, 0: PRINT "   0";
  349. COLOR 7, 0: PRINT "k/";
  350. COLOR 3, 0: PRINT "   0";
  351. COLOR 7, 0: PRINT "k    ";
  352. COLOR 3, 0: PRINT "0";
  353. COLOR 7, 0: PRINT "/   ";
  354. COLOR 3, 0: PRINT "0";
  355. COLOR 7, 0: PRINT "CPS";
  356. COLOR 11, 0: PRINT "│";
  357. COLOR 7, 0: PRINT " 31.2:";
  358. COLOR 3, 0: PRINT "  0";
  359. COLOR 7, 0: PRINT "/";
  360. COLOR 3, 0: PRINT "  0";
  361. COLOR 7, 0: PRINT "    ";
  362. COLOR 3, 0: PRINT "0";
  363. COLOR 7, 0: PRINT "k/   ";
  364. COLOR 3, 0: PRINT "0";
  365. COLOR 7, 0: PRINT "k";
  366. COLOR 15, 0: PRINT " ";
  367. COLOR 7, 0: PRINT "   ";
  368. COLOR 3, 0: PRINT "0";
  369. COLOR 7, 0: PRINT "/   ";
  370. COLOR 3, 0: PRINT "0";
  371. COLOR 7, 0: PRINT "CPS";
  372. COLOR 11, 0: PRINT "│";
  373. COLOR 7, 0: PRINT "▒";
  374. '
  375. PRINT "▒";
  376. COLOR 11, 0: PRINT "│";
  377. COLOR 7, 0: PRINT "16.8:";
  378. COLOR 3, 0: PRINT "  0";
  379. COLOR 7, 0: PRINT "/";
  380. COLOR 3, 0: PRINT "  0";
  381. COLOR 7, 0: PRINT " ";
  382. COLOR 3, 0: PRINT "   0";
  383. COLOR 7, 0: PRINT "k/";
  384. COLOR 3, 0: PRINT "   0";
  385. COLOR 7, 0: PRINT "k    ";
  386. COLOR 3, 0: PRINT "0";
  387. COLOR 7, 0: PRINT "/   ";
  388. COLOR 3, 0: PRINT "0";
  389. COLOR 7, 0: PRINT "CPS";
  390. COLOR 11, 0: PRINT "│";
  391. COLOR 7, 0: PRINT " 33.6:";
  392. COLOR 3, 0: PRINT "  0";
  393. COLOR 7, 0: PRINT "/";
  394. COLOR 3, 0: PRINT "  0";
  395. COLOR 7, 0: PRINT "    ";
  396. COLOR 3, 0: PRINT "0";
  397. COLOR 7, 0: PRINT "k/   ";
  398. COLOR 3, 0: PRINT "0";
  399. COLOR 7, 0: PRINT "k";
  400. COLOR 15, 0: PRINT " ";
  401. COLOR 7, 0: PRINT "   ";
  402. COLOR 3, 0: PRINT "0";
  403. COLOR 7, 0: PRINT "/   ";
  404. COLOR 3, 0: PRINT "0";
  405. COLOR 7, 0: PRINT "CPS";
  406. COLOR 11, 0: PRINT "│";
  407. COLOR 7, 0: PRINT "▒";
  408. '
  409. PRINT "▒";
  410. COLOR 11, 0: PRINT "╞═════════════";
  411. COLOR 14, 1: PRINT " Callers ";
  412. COLOR 11, 0: PRINT "═══════════════╪═══════════";
  413. COLOR 14, 1: PRINT " File Transfers ";
  414. COLOR 11, 0: PRINT "═══════════╡";
  415. COLOR 7, 0: PRINT "▒";
  416. PRINT "▒";
  417. COLOR 11, 0: PRINT "│";
  418. COLOR 7, 0: PRINT "0.3:  ";
  419. COLOR 3, 0: PRINT "0";
  420. COLOR 7, 0: PRINT "  7.2:  ";
  421. COLOR 3, 0: PRINT "0";
  422. COLOR 7, 0: PRINT "  16.8:  ";
  423. COLOR 3, 0: PRINT "0";
  424. COLOR 7, 0: PRINT "  26.4:  ";
  425. COLOR 3, 0: PRINT "0";
  426. COLOR 11, 0: PRINT " │";
  427. COLOR 13, 0: PRINT " TX ";
  428. COLOR 7, 0: PRINT "DDn: ";
  429. COLOR 3, 0: PRINT " 0";
  430. COLOR 7, 0: PRINT " PKT: ";
  431. COLOR 3, 0: PRINT " 0";
  432. COLOR 7, 0: PRINT " TIC:  ";
  433. COLOR 3, 0: PRINT "0";
  434. COLOR 7, 0: PRINT " Other: ";
  435. COLOR 3, 0: PRINT " 0";
  436. COLOR 7, 0: PRINT " ";
  437. COLOR 11, 0: PRINT "│";
  438. COLOR 7, 0: PRINT "▒";
  439. PRINT "▒";
  440. COLOR 11, 0: PRINT "│";
  441. COLOR 7, 0: PRINT "1.2:  ";
  442. COLOR 3, 0: PRINT "0";
  443. COLOR 7, 0: PRINT "  9.6:  ";
  444. COLOR 3, 0: PRINT "0";
  445. COLOR 7, 0: PRINT "  19.2:  ";
  446. COLOR 3, 0: PRINT "0";
  447. COLOR 7, 0: PRINT "  28.8:  ";
  448. COLOR 3, 0: PRINT "0";
  449. COLOR 11, 0: PRINT " │";
  450. COLOR 13, 0: PRINT " RX ";
  451. COLOR 7, 0: PRINT "DDn:  ";
  452. COLOR 3, 0: PRINT "0";
  453. COLOR 7, 0: PRINT " PKT:  ";
  454. COLOR 3, 0: PRINT "0";
  455. COLOR 7, 0: PRINT " TIC:  ";
  456. COLOR 3, 0: PRINT "0";
  457. COLOR 7, 0: PRINT " Other:  ";
  458. COLOR 3, 0: PRINT "0";
  459. COLOR 7, 0: PRINT " ";
  460. COLOR 11, 0: PRINT "│";
  461. COLOR 7, 0: PRINT "▒";
  462. PRINT "▒";
  463. COLOR 11, 0: PRINT "│";
  464. COLOR 7, 0: PRINT "2.4:  ";
  465. COLOR 3, 0: PRINT "0";
  466. COLOR 7, 0: PRINT " 12.0:  ";
  467. COLOR 3, 0: PRINT "0";
  468. COLOR 7, 0: PRINT "  21.6:  ";
  469. COLOR 3, 0: PRINT "0";
  470. COLOR 7, 0: PRINT "  31.2:  ";
  471. COLOR 3, 0: PRINT "0";
  472. COLOR 11, 0: PRINT " │";
  473. COLOR 7, 0: PRINT " Poller:";
  474. COLOR 3, 0: PRINT "  0:00";
  475. COLOR 7, 0: PRINT " Polling:";
  476. COLOR 3, 0: PRINT "  0:00";
  477. COLOR 7, 0: PRINT " $";
  478. COLOR 3, 0: PRINT "  0.00";
  479. COLOR 7, 0: PRINT " ";
  480. COLOR 11, 0: PRINT "│";
  481. COLOR 7, 0: PRINT "▒";
  482. PRINT "▒";
  483. COLOR 11, 0: PRINT "│";
  484. COLOR 7, 0: PRINT "4.8:  ";
  485. COLOR 3, 0: PRINT "0";
  486. COLOR 7, 0: PRINT " 14.4:  ";
  487. COLOR 3, 0: PRINT "0";
  488. COLOR 7, 0: PRINT "  24.0:  ";
  489. COLOR 3, 0: PRINT "0";
  490. COLOR 7, 0: PRINT "  33.6:  ";
  491. COLOR 3, 0: PRINT "0 ";
  492. COLOR 11, 0: PRINT "╞══════════════";
  493. COLOR 14, 1: PRINT " Errors ";
  494. COLOR 11, 0: PRINT "════════════════╡";
  495. COLOR 7, 0: PRINT "▒";
  496. PRINT "▒";
  497. COLOR 11, 0: PRINT "│ ";
  498. COLOR 15, 0: PRINT "     Successful Connects:   ";
  499. COLOR 10, 0: PRINT "0";
  500. COLOR 7, 0: PRINT "       ";
  501. COLOR 11, 0: PRINT "│";
  502. COLOR 7, 0: PRINT " Pollers:   ";
  503. COLOR 3, 0: PRINT "0";
  504. COLOR 7, 0: PRINT " RX Files:  ";
  505. COLOR 3, 0: PRINT "0";
  506. COLOR 7, 0: PRINT " Pwords:  ";
  507. COLOR 3, 0: PRINT "0";
  508. COLOR 7, 0: PRINT " ";
  509. COLOR 11, 0: PRINT "│";
  510. COLOR 7, 0: PRINT "▒";
  511. PRINT "▒";
  512. COLOR 11, 0: PRINT "│ ";
  513. COLOR 15, 0: PRINT "     Rejects:   ";
  514. COLOR 11, 0: PRINT "0";
  515. COLOR 7, 0: PRINT " ";
  516. COLOR 15, 0: PRINT "Failed:  ";
  517. COLOR 7, 0: PRINT " ";
  518. COLOR 12, 0: PRINT "0";
  519. COLOR 15, 0: PRINT "  ";
  520. COLOR 7, 0: PRINT "     ";
  521. COLOR 11, 0: PRINT "│";
  522. COLOR 7, 0: PRINT " Polling:   ";
  523. COLOR 3, 0: PRINT "0";
  524. COLOR 7, 0: PRINT " TX Files:  ";
  525. COLOR 3, 0: PRINT "0";
  526. COLOR 7, 0: PRINT " Others:  ";
  527. COLOR 3, 0: PRINT "0";
  528. COLOR 7, 0: PRINT " ";
  529. COLOR 11, 0: PRINT "│";
  530. COLOR 7, 0: PRINT "▒";
  531. PRINT "▒";
  532. COLOR 11, 0: PRINT "╘═════════════════════════════════════╧══════════════════════════════════════╛";
  533. COLOR 7, 0: PRINT "▒";
  534. 'PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  535. COLOR 1, 0: PRINT "──────────                         ──";
  536. COLOR 14, 0: PRINT " to ";
  537. COLOR 1, 0: PRINT "──                         ────────────";
  538.  
  539. END SUB
  540.  
  541. SUB PressEnter (Pause AS INTEGER, Beeps AS INTEGER)
  542.  
  543. COLOR 17, 7
  544. LOCATE 25, 1
  545. PRINT " Press a key ";
  546. COLOR 0, 0
  547. LOCATE 25, 80
  548.  
  549. DO WHILE ik$ = ""
  550.    ik$ = INKEY$
  551. LOOP
  552. COLOR 7, 0
  553.  
  554. IF ik$ = CHR$(27) THEN
  555.    CLOSE #FDLogFile, #FDStatOut
  556.    LOCATE 24, 72
  557.    COLOR 14, 0
  558.    PRINT " ABORTED!";
  559.    LOCATE 25, 1
  560.    COLOR 7, 0
  561.    PRINT "             ";
  562.    LOCATE 24, 1
  563.    END
  564. END IF
  565.  
  566. IF ik$ = "P" OR ik$ = "p" THEN Pause = 0: Beeps = 0
  567. IF ik$ = "B" OR ik$ = "b" THEN Beeps = 0
  568.  
  569. LOCATE 25, 1
  570. PRINT "             ";
  571.  
  572. END SUB
  573.  
  574. DEFINT A-Z
  575. SUB SaveAnsiScrn (FileNum AS INTEGER)
  576.  
  577. Pad$ = ""     'make white on black to begin with
  578. FOR p = 1 TO 80
  579.     Pad$ = Pad$ + "▒"
  580. NEXT p
  581.  
  582.      CurAttr = -1
  583.      rownum = 1
  584.      LineOut$ = ""     'Clear Screen
  585.      FOR colnum = 1 TO 80
  586.         CharVal = SCREEN(rownum, colnum)
  587.         Attr = SCREEN(rownum, colnum, 1)
  588.         IF Attr <> CurAttr THEN
  589.           CurAttr = Attr
  590.           AnsiCode$ = AnsiColor$(Attr)
  591.           LineOut$ = LineOut$ + AnsiCode$
  592.         END IF
  593.         LineOut$ = LineOut$ + CHR$(CharVal)
  594.      NEXT
  595.      PUT #FileNum, , LineOut$
  596.      PUT #FileNum, , Pad$
  597.  
  598.   CurAttr = -1
  599.   FOR rownum = 6 TO 22
  600.      LineOut$ = ""
  601.      FOR colnum = 1 TO 80
  602.         CharVal = SCREEN(rownum, colnum)
  603.         IF rownum = 6 AND colnum = 2 THEN CharVal = 213
  604.         IF rownum = 6 AND colnum = 79 THEN CharVal = 184
  605.         Attr = SCREEN(rownum, colnum, 1)
  606.         IF Attr <> CurAttr THEN
  607.           CurAttr = Attr
  608.           AnsiCode$ = AnsiColor$(Attr)
  609.           LineOut$ = LineOut$ + AnsiCode$
  610.         END IF
  611.         LineOut$ = LineOut$ + CHR$(CharVal)
  612.      NEXT
  613.      PUT #FileNum, , LineOut$
  614.   NEXT
  615.  
  616.   PUT #FileNum, , Pad$
  617.   
  618.      CurAttr = -1
  619.      rownum = 23
  620.      LineOut$ = ""
  621.      FOR colnum = 1 TO 80
  622.         CharVal = SCREEN(rownum, colnum)
  623.         Attr = SCREEN(rownum, colnum, 1)
  624.         IF Attr <> CurAttr THEN
  625.           CurAttr = Attr
  626.           AnsiCode$ = AnsiColor$(Attr)
  627.           LineOut$ = LineOut$ + AnsiCode$
  628.         END IF
  629.         LineOut$ = LineOut$ + CHR$(CharVal)
  630.      NEXT
  631.      LineOut$ = LineOut$ + ""   'Make white on black at end of file
  632.      PUT #FileNum, , LineOut$
  633.  
  634. END SUB
  635.  
  636. DEFSNG A-Z
  637. SUB SaveAscScrn (FileNum AS INTEGER, Title AS INTEGER)
  638.  
  639. IF Title THEN
  640.    PRINT #FileNum, "┌────────────────────────────────────────────────────────────────────────────┐"
  641.    PRINT #FileNum, "│";
  642.    FOR c% = 3 TO 78
  643.        X% = SCREEN(1, c%)
  644.        ASCIItoASL X%
  645.        PRINT #FileNum, CHR$(X%);
  646.    NEXT
  647.    PRINT #FileNum, "│"
  648.    PRINT #FileNum, "└────────────────────────────────────────────────────────────────────────────┘"
  649. END IF
  650.  
  651. FOR c% = 2 TO 79
  652.     X% = SCREEN(23, c%)
  653.     IF Title AND X% = ASC("─") THEN X% = ASC(" ")
  654.     PRINT #FileNum, CHR$(X%);
  655. NEXT
  656. PRINT #FileNum,
  657. PRINT #FileNum,
  658.  
  659. FOR R% = 6 TO 22
  660.     FOR c% = 2 TO 79
  661.         X% = SCREEN(R%, c%)
  662.         IF R% = 6 AND c% = 2 THEN X% = 213
  663.         IF R% = 6 AND c% = 79 THEN X% = 184
  664.         PRINT #FileNum, CHR$(X%);
  665.     NEXT
  666.     PRINT #FileNum,
  667. NEXT
  668.  
  669. END SUB
  670.  
  671. SUB SaveAslScrn (FileNum AS INTEGER)
  672.  
  673. PRINT #FileNum, "------------------------------------------------------------------------------"
  674. FOR c% = 2 TO 79
  675.     X% = SCREEN(1, c%)
  676.     ASCIItoASL X%
  677.     PRINT #FileNum, CHR$(X%);
  678. NEXT
  679. PRINT #FileNum,
  680. PRINT #FileNum, "------------------------------------------------------------------------------"
  681.  
  682.  
  683. FOR c% = 2 TO 79
  684.     X% = SCREEN(23, c%)
  685.     ASCIItoASL X%
  686.     IF CHR$(X%) = "-" THEN X% = ASC(" ")
  687.     PRINT #FileNum, CHR$(X%);
  688. NEXT
  689. PRINT #FileNum,
  690. PRINT #FileNum,
  691.  
  692. FOR R% = 6 TO 22
  693.     FOR c% = 2 TO 79
  694.         X% = SCREEN(R%, c%)
  695.         IF R% = 6 AND c% = 2 THEN X% = 213
  696.         IF R% = 6 AND c% = 79 THEN X% = 184
  697.         ASCIItoASL X%
  698.         PRINT #FileNum, CHR$(X%);
  699.     NEXT
  700.     PRINT #FileNum,
  701. NEXT
  702.        
  703. END SUB
  704.  
  705.